home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / 3MINCPY.ARC / C35 9 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  972 b   |  60 lines
  1. 10 SOURCE JSR STSCR2;RESTORE NORMAL SCREEN
  2. 20 JSR J11; TO DISPLAY ERRORS
  3. 30 JSR SCREEN
  4. 40 JSR SCR
  5. 50 .B 13 13 153
  6. 60 .B "           [201]NSERT [211]OURCE [196]ISK
  7. 70 .B 13 0
  8. 80 JMP SCRIN
  9. 90 DEST JSR STSCR2
  10. 100 JSR J11
  11. 110 JSR SCREEN
  12. 120 JSR SCR
  13. 130 .B 13 13 154
  14. 140 .B "           RIGHT$NSERT PEEKACKUP STR$ISK
  15. 150 .B 13 0
  16. 160 JMP SCRIN
  17. 170 SCRIN JSR STSCR2
  18. 180 J11 JSR GET; WAIT FOR KEY TO BE PRESSED
  19. 190 CMP #$0D
  20. 200 BEQ OK
  21. 210 CMP #$88
  22. 220 BNE J11
  23. 230 JMP ($A002);BASIC WARM START
  24. 242 OK RTS
  25. 250 STSCR2 CLI
  26. 260 LDA #$1B
  27. 270 STA FSREG
  28. 280 RTS
  29. 290 STSCR1 LDA #$0B;BLANK SCREEN
  30. 300 STA FSREG
  31. 301 ;JSR SCREEN
  32. 310 JSR SCR
  33. 320 .B 13 13
  34. 330 .B "[156]*** [196]ISK [197]RRORS ***
  35. 340 .B 13 0
  36. 350 RTS
  37. 360 SCR PLA;PULL [142] ADDRESS
  38. 370 STA CZFD
  39. 380 PLA
  40. 390 STA CZFE
  41. 400 LDY #$00
  42. 410 M[176]E5 INC CZFD
  43. 420 BNE J12
  44. 430 INC CZFE
  45. 440 J12 LDA (CZFD),Y
  46. 450 BEQ J13
  47. 460 JSR [153]
  48. 470 JMP M[176]E5
  49. 480 J13 LDA CZFE
  50. 490 PHA;[162] [142] ADDRESS
  51. 500 LDA CZFD
  52. 510 PHA
  53. 520 RTS
  54. 530 INIT JSR [155]
  55. 540 LDA #"I
  56. 550 JSR OUT
  57. 560 JSR UNLIS
  58. 570 RTS
  59. 580 .F C35 9.1
  60.